Function lex∆from_alist

    ∇ new←lex lex∆from_alist list
[1]    ⍝⍝ Function to generate a lexicon from a list
[2]    ⎕es (0≠2|⍴list←,list)/'List must consist of name-value pairs.'
[3]    →(2=⎕nc 'lex')/recursion
[4]    lex←lex∆init
[5]  recursion:
[6]    new←lex
[7]    →(0=⍴list←,list)/0
[8]    new← (new lex∆assign 2↑list←,list) lex∆from_alist 2↓list
    ∇